home *** CD-ROM | disk | FTP | other *** search
/ Delphi Developer's Kit 1996 / Delphi Developer's Kit 1996.iso / power / tqbe3 / demo / udemoqbe.dfm / udemoqbe.txt
Encoding:
Text File  |  1995-12-22  |  3.0 KB  |  151 lines
  1. object Form1: TForm1
  2.   Left = 273
  3.   Top = 120
  4.   Width = 487
  5.   Height = 462
  6.   ActiveControl = Edit1
  7.   Caption = 'TQBE WITH ANSWER TABLE AND PARAMS DEMO'
  8.   Font.Color = clWindowText
  9.   Font.Height = -13
  10.   Font.Name = 'System'
  11.   Font.Style = []
  12.   PixelsPerInch = 96
  13.   Position = poScreenCenter
  14.   Scaled = False
  15.   OnCreate = FormCreate
  16.   TextHeight = 16
  17.   object Label1: TLabel
  18.     Left = 8
  19.     Top = 272
  20.     Width = 327
  21.     Height = 16
  22.     Caption = 'This DBGrid shows the :DBDEMOS:ANSWER table'
  23.   end
  24.   object Label2: TLabel
  25.     Left = 16
  26.     Top = 84
  27.     Width = 245
  28.     Height = 16
  29.     Caption = 'This DBGrid shows the Query results.'
  30.   end
  31.   object Label3: TLabel
  32.     Left = 224
  33.     Top = 56
  34.     Width = 208
  35.     Height = 16
  36.     Caption = 'This DATABASE is DBDEMOS-->'
  37.     Visible = False
  38.   end
  39.   object Label4: TLabel
  40.     Left = 12
  41.     Top = 12
  42.     Width = 230
  43.     Height = 16
  44.     Caption = 'Type the company first letters here:'
  45.   end
  46.   object Label5: TLabel
  47.     Left = 12
  48.     Top = 32
  49.     Width = 254
  50.     Height = 16
  51.     Caption = '(The typed text is a param to the query)'
  52.   end
  53.   object Label6: TLabel
  54.     Left = 144
  55.     Top = 238
  56.     Width = 85
  57.     Height = 16
  58.     Caption = 'The TQBE -->'
  59.     Visible = False
  60.   end
  61.   object DBGrid1: TDBGrid
  62.     Left = 20
  63.     Top = 104
  64.     Width = 401
  65.     Height = 125
  66.     DataSource = DataSource1
  67.     DefaultDrawing = False
  68.     TabOrder = 0
  69.     TitleFont.Color = clWindowText
  70.     TitleFont.Height = -13
  71.     TitleFont.Name = 'System'
  72.     TitleFont.Style = []
  73.     OnDrawDataCell = DBGrid1DrawDataCell
  74.   end
  75.   object DBGrid2: TDBGrid
  76.     Left = 16
  77.     Top = 300
  78.     Width = 405
  79.     Height = 120
  80.     DataSource = DataSource2
  81.     TabOrder = 1
  82.     TitleFont.Color = clWindowText
  83.     TitleFont.Height = -13
  84.     TitleFont.Name = 'System'
  85.     TitleFont.Style = []
  86.   end
  87.   object Edit1: TEdit
  88.     Left = 248
  89.     Top = 8
  90.     Width = 121
  91.     Height = 24
  92.     TabOrder = 2
  93.     Text = 'Ac'
  94.     OnChange = Edit1Change
  95.   end
  96.   object BitBtn1: TBitBtn
  97.     Left = 372
  98.     Top = 234
  99.     Width = 89
  100.     Height = 33
  101.     Caption = 'NEW !!!'
  102.     Font.Color = clMaroon
  103.     Font.Height = -13
  104.     Font.Name = 'System'
  105.     Font.Style = [fsBold]
  106.     ParentFont = False
  107.     TabOrder = 3
  108.     OnClick = BitBtn1Click
  109.   end
  110.   object Database1: TDatabase
  111.     AliasName = 'DBDEMOS'
  112.     Connected = True
  113.     DatabaseName = 'DBDEMOS'
  114.     Left = 436
  115.     Top = 48
  116.   end
  117.   object DataSource1: TDataSource
  118.     DataSet = QBE1
  119.     Left = 272
  120.     Top = 232
  121.   end
  122.   object QBE1: TQBE
  123.     AfterOpen = QBE1AfterOpen
  124.     DatabaseName = 'DBDEMOS'
  125.     QBE.Strings = (
  126.       ':dbdemos:customer.db | CustNo | Company            |'
  127.       
  128.         '                                         | Check  | Check MyPara' +
  129.         'm |'
  130.       '')
  131.     AnswerTable = ':DBDEMOS:ANSWER'
  132.     RequestLive = False
  133.     BlankasZero = False
  134.     AuxTables = False
  135.     AnswerType = ttParadox
  136.     Left = 236
  137.     Top = 232
  138.   end
  139.   object Table1: TTable
  140.     DatabaseName = 'DBDEMOS'
  141.     TableName = 'ANSWER.DB'
  142.     Left = 20
  143.     Top = 236
  144.   end
  145.   object DataSource2: TDataSource
  146.     DataSet = Table1
  147.     Left = 52
  148.     Top = 236
  149.   end
  150. end
  151.